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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter or pencil, do not use ink) 

Program No. Date 

Program Name: 

1. Does the abstract adequately describe what the program is and what Yes No 

it does? 

Comment 

2. Does the program do what the abstract says ? Yes No 

C omment 

3. Is the Description clear, understandable, and adequate? Yes No 

Commen t 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes No 

Are the mnemonic labels identified or sufficiently understandable? Yes No 

Comment 

5. Does the source program compile satisfactorily (if applicable)? Yes No 

Comment 

6. Does the object program run satisfactorily? Yes No 

C omment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No 

Comment 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No 

Comment 

9. Were all necessary parts of the program received? Yes No 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 
Data Corporation 

7500 Old Xenia Pike Address 
Dayton, Ohio 45432 



User Group Code_ 



THIS RE VIEW' FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NQNMEMBER S ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 
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CRITICAL PATH NODE 
AND 

DUMMY ASSIGNMENT TECHNIQUE (CPNAT) 



RONALD J. S ROD AW A 

Computer Center 
The University of Detroit 
Detroit 21, Michigan 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 







DECK KEY 



1. Source Deck - 660 Cards 

2. Object Deck - 157 Cards 

3. Sample Problem Deck - 50 Cards 

Sample Problem I - Cards 01001 to 01020 
Sample Problem II - Cards 02001 to 02030 



1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 

1. TITLE (If subroutine, state in Title): Critical Path Node And Dummy Assignment 

TftrhniqiiP Prngram. f fPN AT ) 10.3.(130 

2. Author; Organization: Ronald J. Srodawa Computer Center 

University of Detroit 

Date: August 8 f 1963 Users Group Membership Code: 30 06 

3. Direct Inquiries to Name: Ronald J. Srodawa Computer Center 

University of Detroit Detroit, Michigan ,4 82 P hone : 342-1000 Ext 325 

4. Description/Purpose: (5. Method; 6. Restriction/ Range; When Applicable) This program 

reads a list of jobs along with the prerequisites ( a list ot the 

jobs which must be performed before the job in question 1 r time 

duration and costs for each job. It then assigns node numbers. 

generates any needed dummies, and punches out an output deck which 

can be used as input for 10.3.011 . The restrictions are that 

3A+4B+4C+2D must be less than 3022, where A is the number of jobs, 

B is the number of prerequisites. C is the number of jobs with no 

prerequisites, and D is the number of jobs not used as a prerequisite. 

Add 5000 to the upper limit for every additional 20K of memory. 



7. Specifications (Check or fill in appropriate spaces): 

a. Storage used by program: 20K-100K Automatically adiustes to memory size. 

b. Equipment required by program: 

Card System X ; Magnetic Tape System ; No. of Tapes ; 



Paper Tape System j Disk File System ; No. of Packs 



TNS, TNF, MF '; Auto divide ; Indirect addressing ;Floating point hardware 



Other (specify) 

Can program be used on lesser Machine? Yes Specify which requirements can be 

easily removed I/O devices can be changed to fit machine configuration. 
c. Programming type (Check appropriate spaces): 

Fortran without Format ; Fortran with Format ; 



Fortran II ; Mainline, Complete ; Subroutine or function subprogram(S or F) 

Is the program a library (ie, SPS) function to the Fortran system checked? 

SPS ; SPS - 1620/1710 X ; 



Mainline, Complete X ; Macro ; Subroutine_ 

Other programming language: ; Give details 



d. Language used in the writeup: SPS listing with machine code. Writeup in Eng 

8. Additional Remarks: This program generates input to program 10.3.011 

f Miss Less") by Rav N. Sauer . The sample IT job is pmrfl^ssH 

by CPNAT in about 35 seconds. The program was developed through 

part time work over a period of about six months. 
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Description : 

The Critical Path Node and Dummy Assignment Technique 
(CPNAT) is a program which makes the manual assignment of 
nodes and dummy jobs, and the drawing of an arrow diagram 
before the running of a least cost estimating and scheduling 
program unnecessary. All that is required is to write a 
list containing each real job, its estimated time and cost, 
and the other real jobs which must be done immediately pre- 
ceeding to this job. This is punched into cards and used 
as input to CPNAT. This program then assigns nodes to each 
real job and generates dummy jobs to satisfy the prerequisites. 
It then punches out an output deck which can be used directly 
as input to the MISS- LESS program. 

Purposes and Uses: 

By reducing the amount of labor necessary to prepare a 
run for MISS-LESS, this program should reduce the overall 
time required to set up and obtain information from a 
scheduling program. Also, it reduces the opportunities for 
time consuming human errors. Also, runs which have been 
very difficult to draw arrow diagrams for are easily coped 
with. For instance, Dr. Kenney, at the University of Detroit 
has been experimenting with the breaking down of Chemistry 
courses into the various topics which compose them, and re- 
arranging these topics using MISS-LESS. The networks which 
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resulted were very complicated and could not easily be 
drawn by hand. CPNAT was developed to cope with this 
situation and has done so very nicely. To conclude then, 
CPNAT was developed to reduce the time necessary for set- 
ting up a run for MISS-LESS. It is especially useful with 
runs which require very complicated arrow diagrams. Be- 
cause it assigns the nodes and generates dummy jobs auto- 
matically, it reduces the room for human error and results 
in very efficient arrow diagrams. 

Inquiries : 

Any inquiries should be addressed to: 

Ronald J. Srodawa 
Computer Center 
University of Detroit 
Detroit 21, Michigan 

Restrictions : 

3A + 4B + 4C + 2D should be less than or equal to 3022 
where A is the number of jobs, B is the number of pre- 
requisites, C is the number of jobs with no prerequi- 
sites, and D is the number of jobs not used as prerequi- 
sites. Add 5000 to the upper limit for every additional 
20K of memory. Under certain conditions, another tem- 
porary table may be built by the program. It would be 
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wise to subtract 15 or 20 from the upper limit to be certain 
that the program will not run out of storage if it generates 
this short table. Also, A itself must be less than 5000, 
otherwise arithmetic overflows will result. 
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METHOD OF COMPUTATION 



The program reads in the job cards and builds a table 
of jobs along with the node numbers which it assigns con- 
secutively. It also builds a table consisting of each job 
and its prerequisites. After this another table is built 
of all dummies needed to satisfy all the prerequisites. A 
series of algorithms is performed to weed out the un- 
necessary dummies and change the numbering of the corres- 
ponding nodes. The cards are then read in again, the 
necessary information looked up in the tables and pulled 
off the input cards, and the output cards punched. All 
the tables are floating, that is, the next table begins 
where the last table ended, thus using all available storage. 

The following is a more complete description of the 
algorithms employed. 

1. Initialize all storage and indicators. 

2. Assign 0001 as the start. 

3. Read each job card, assign an I and J to each 
job and store along with its number in a table. 

ex: First Job (2,3) 
Second Job (4,5) 

4. Store the job number along with its prerequisites 
in a prerequisite table. 

5. Define the end to be the J of the last job 
defined plus 1. 
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6. Assign dummies to correspond to the prerequisites. 

ex: If (10,11) has prerequisite (2,3) 
assign the dummy (3,10). 

7. If a job has no prerequisites, assign a dummy 
(1,1) where I is the I of the job. 

8. If a job is not used as a prerequisite, assign a 
dummy connecting its J with the end found in 5. 

Perform the following tests using each dummy in turn as 
the test dummy. (10, JO) are the nodes of the test 
dummy, (Ii,Ji) the nodes of the other jobs or dummies. 

9. If no other dummy or job has the same J value as 
the test dummy, find the job whose I value equals 
the J of the dummy, set this I value equal to 
the I of the test dummy and remove the dummy. 

10. If there exists a dummy or job such that Ji equals 
Jo; then: 

If there exists a dummy or job such that Ii equals 
Io, do not change or remove anything. 
If no other job or dummy exists such that Ii equals 
Io, find all jobs or dummies for which Ji equals 
Io, and for these jobs and dummies set Ji equal 
to Jo and remove the dummy. 

After repeating the above algorithm for all dummies, 

proceed. 

11. Find a job having only dummies jjoing into it and 
save the I's of all these dummies. 
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12. Scan for other jobs having only dummies going 
into them, if each dummy of the second has an 
I corresponding to an I of a dummy of the 
first, save the job number. This must be a 

1 to 1 correspondence. 

13. If another job or dummy has an I which is 
equal to the I of any of the saved jobs, 
change it to the I of the first job. 

14. Remove any dummy which has a J equal to the I 
of any of the saved jobs. 

15. Change any J which is the same as the I of 
the saved dummies (any one) to the I of the 
first job. 

16. Change any I which is the same as the I of a 
saved dummy to the I of the first job. 

After the preceeding algorithm is completed for all jobs 

17. If there exist any dummies which are identical, 
remove all but one of them. 

18. Reread the input and punch the output. 
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INPUT CARD DESCRIPTION 
ccl 



Contains a blank if this is a new job which should 
be defined. Contains any valid character if this 
is a continuation of a job already defined. This 
would be used if a job had more than 14 prere- 
quisites. 



cc2-5 Contains the time duration of the job, right 

justified. 

cc6-10 Contains the estimated cost of the job, right 
justified. 

ccll-14 Contains the identifying job number, right 
justified. 



ccl5-18 
19-22 



cc6 7-70 



Contain a list of the immediate prerequisites of 
this job, each right justified in its field. If 
a job has more than 14 prerequisites, continue 
onto some later card by putting a valid character 
in ccl, job # in ccll-14, and prerequisite 
15, ... starting in ccl5 of that later card. 



cc71-74 
cc75-80 



Must be left blank. 



Not used by CPNAT, may be used for card identifi- 
cation. 

The input cards may be in any order. 
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1620 HPUT / OUTPUT LINEUP 



PROGRAM SAME: 



CPNAT (INPUT) 



This ia the format for the card input which is read by the orogram 
st the beginning of Pass 1 and Paaa 11 




-». i « i ia i i u nrr .» i smrt »ri ■» i «■ i n 



PREREQUISITES 



2 It?. 2 

3 1 1 3 I 



5 S i 5 5 5 § 5 S 5 5 S S 5 5 5 5 S 5 5 5 5 5 5 5 5 5 5 5 5 



222222222222222222222222222222222222222222222222222222222222222222222222222 



33 3 3 30 3 3 3 3 3 3 3 3 3 3 3 



SBfi8886B8S6S@6 



t i « s 



TTTT 



9I99S99999 



it u is was w n it 



99999999 



fill 



77777777777777777777777777777? 



u a ji 22 a » a » 27 a 23 33 



111! 



S J 8 » M II UU H IS 1« 17 11 1Sa2IM B24 25 K 27 28 29 30 3! 15M37M 



PR 

3 



1111 



3 3 3 3 3 3 3 3 



99933353 



PR 

h 



1111 



9 9 9 9 



PR 

5 



31 3233343S 36 37 38 39 40 4I 4243444546 



1111 



33333333333333333333333333333333333333333333333333 



9 9 9 9 
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1111 



9 9 9 9 



PR 
7 



1111 



7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 



PR 



1111 



t; « 4a 50 
1111 



99999999 



PR 
9 



00 00 00 00 00 onto 

51 52535455565758960611 

111111111111111111111111111111 



4444 4444 4444444444 444444444444444444444444444444444444 



681886 8668 68 SB66 68 66 6 6 66666666 66E66S66 66 66666668688 6 68 6686666 88 666 



9 9 9 9 



PR 
10 



9 9 9 9 



S555S5S555S5SSS55S555S555555S55S5S55S5SSSS5S555S5S 



9 9 9 9 



PR 
12 



33 40 41 42 U 44 45 46 17 48 49 51 51 52 53 M 55 56 H 58 B 60 61 G 63 64 65 6( 67 68 53 70 71 H 73 7< 75 76 H 71 7Ji3 



PR 
13 



77 77 77 77 7 77 77 777 77 7 777 777 7 77 77 



OR 



888888 
9999999999999999999999 



im~l 10 11 12 J3 14 15 II 17 U 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 3S 37 38 39 4041 42 43 4445 46 47 48 49 50 51 52 S3 54 55 56 57 58 53 GO 61 62 63 64 65 K 87 61 69 70 71 T2 7J M 7S 71 77 71 70 JS 



i 

urns , 
ran 1 
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OUTPUT CARD DESCRIPTIONS 
Real Job Card: 

ccl-4 I of the job arrow. (tail) 
cc5-8 J of the job arrow. (tip) 
cc9-12 Time duration of the job. 
ccl3-17 Estimated cost of the job. 
ccl8-21 Job identification number. 

cc22-50 Not punched. Information may be punched into these 
columns after running. It will then appear in the 
output of MISS LESS. 

cc51-80 Not used by either CPNAT or MISS LESS. May 
contain anything. 

Dummy Job Card: 

The dummy card output is the same as the real job output 
above except: 

ccl8 Contains a "D" . 

ccl9-22 Contains the dummy job number. 

cc23-50 Same as cc22-50 above. 
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1620 HPUT / OUTPUT LIMBUP 



PROGRAM / 



PROGRAM KAMI: CPNAT (OUTPUT) 



REMARKS: This is the format of the output card which J a punched during 
Pass I. 



'{i,v^yA l f,iV'!*rf l 3M?IW\?i^ 



OBO0O0O0OOOOO0 0,0 00 O'O 000000000000000000000000000 



I I T I 

11111111 



TTTTT 



TIME 



COST 



11111 



M 1 1 



Not punched 



1.1 It 1 1 11 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 



2 2222 2222 22222 2i222 2|2 22 2 22 2 2 22 22 2 2 222 22222 22222 2 
J 3 3 3 3 1 3 3 3 3 3 3 3 3 3'3 3 3 3'3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 

1 : 

4(444(444 44444 4<4 44 4>4 444444 4 4 4444444444444444444 

1 1 

5 5 5 5 5 5 5 5 5 5 5 5 5 5 515 5 5 5|5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 
t|ttttktlBkBtS8 8)6 6B8!8 6e6S6B66666BSSS66l8tS66e668 
7|7777p777|777777',777 7j7 77 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 77 77 7 7 7 7 7 7 

1 1 1 1 1 1 1 1 1 1 1 8 8 8 8 8 8 8 8*8 8 9 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 9 8 8 I 8 8 8 8 1 8 

l I 

9 I ! 1 9 1 9 9 8 I ! 9 9 9 9'9 9 9 9 19 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 J 9 9 9 9 



1 n 11 no m n n 17 11 11 a n a a HHtfWHHJMlHJJVSMJJlM^lilUiiaKattHl 



Not Used 



000000000 



000 

sBMaMnaaNnanMa 



111111111 



1 1 
22 
33 
44 
55 
SI 
77 
II 
09 
Iff 



001099010008 

ammnnnnnnnnnnm 

1111111111111 

2222222222222 

3333333333333 

4444444444444 

55SS5555555S5 

lllllllllllll 

7777777777777 

lllllllllllll 



9119111999999 

ammnnnitHnnnnnn 



HBimnsnHsnTTiiTi 



IIBBM«»W 
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RECOMMENDED JOB PROCEDURE 



1. Make a list of all the jobs to be performed, 
and assign a unique number to each. 

2. From the list in 1, compile a list of each job, 
its time duration, estimated cost, and the 
numbers of the jobs which must be completed 
immediately before it is started. 

3. From the list in 2, punch up the input for CPNAT. 

4. Run the input data using CPNAT. 

5. If desired, draw an arrow diagram using the nodes 
and dummies assigned by CPNAT. This step may be 
omitted but will make it easier to find errors 
and incorporate later changes. 

6. Correct any errors found by CPNAT either directly 
in the output deck or in the input deck which 
would then have to be rerun. 

7. After a correct output deck is obtained, and any 
other desired information has been punched into 
it, run it with MISS LESS to obtain a critical 
path scheduling. 

8. If any later changes are necessary, they can be 
made directly in the output of CPNAT or in the 
input in which case they would have to be rerun 
with CPNAT. 



SAMPLE PROBLEM I 

The following sample problem is one of the trial runs 
used to test the application of least cost estimating and 
scheduling to the assignment of course topics by Dr. 
Kenney. Each job number refers to one chemistry course 
topic, such as Avogadro's Law, Equation Balancing, etc. 
As can be seen, the job results in a very complicated 
arrow diagram. The output from MISS LESS has been sorted 
down by earliest start date to make the results easier to 
use. This problem took 1 1/2 minutes to run on CPNAT. 
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A LIST OF REAL JOBS WITH TIME DURATION , COST, AND PREREQUISITES 
Job Time Cost Prerequisites 



100 


5 




110 


10 


100 


120 


8 


110 


130 


4 


140 


140 


15 


120 


150 


5 


110 


160 


3 


200 


170 


1 


110 


180 


1 


- 


190 


2 


180 


200 


25 


140,150 


2 10 


15 


200,220 


220 


15 


150,180 


315 


10 


314,306 


303 


10 


109,102 


305 


20 


112 


306 


10 


305,303 


308 


10 


105 


309 


3 


105 


310 


30 


308 


311 


20 


310 


312 


10 


309,311,305 


313 


15 


312 
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A LIST OF REAL JOBS WITH TIME DURATION, COST, AND PREREQUISITES 
(Continued) 



job Time Cost Prerequisites 

314 30 313,303 

112 10 105 

102 3 101 

109 2.0 H2 

104 20 180 

105 5 180,104 
101 2 180 
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CPNAT Input: 



CP NAT Output: 



0005 0100 

0010 01100100 

0008 01200110 

0004 01300140 
0015 01400120 

0005 01500110 
0003 01600200 
0001 01700110 

0001 0180 

0002 01900180 
0025 020001400150 
0015 021002000220 
0015 022001500180 
0010 031503140306 
0010 030301090102 
0020 03050112 
0010 030603050303 
0010 03080105 

0003 03090105 
0030 03100308 
0020 03110310 

0010 0312030903110305 

0015 03130312 

0030 031403130303 

0010 01120105 

0003 01020101 

0020 01090112 

0020 01040180 

0005 010501800104 

0002 01010180 



000100030005 0100 

000300050010 0110 

000500070008 0120 

002600620004 0130 

000700260015 0140 

000500260005 0150 

002300620003 0160 

000500620001 0170 

000100260001 0180 

002600620002 0190 

002600230025 0200 

002400620015 0210 

002600240015 0220 

002800620010 0315 

003000340010 0303 

005100340020 0305 

003400280010 0306 

005900370010 0308 

005900440003 0309 

003700410030 0310 

004100440020 0311 

004400450010 0312 

004500480015 0313 

004800280030 0314 

005900510010 0112 

006100300003 0102 

005100300020 0109 

002600580020 0104 

005800590005 0105 

002600610002 0101 

00230024 00 0000001 

00340044 00 00D0002 

00340048 00 00D0003 

00260058 00 00D0004 
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Arrow Diagram drawn from CPNAT Output 

17 



MISS LESS Output: 



000100030005 
000100260001 
000300050010 
000500070008 
000500260005 
000500620001 
000700260015 
002600620004 
002600620002 
002600230025 
002600240015 
002600580020 
002600610002 
00260058 00 
006100300003 
005800590005 
002300620003 
002400620015 
005900370010 
005900440003 
005900510010 
00230024 00 
005100340020 
003700410030 
005100300020 
003000340010 
003400280010 
004100440020 
00340044 00 
00340048 00 
004400450010 
004500480015 
004800280030 
002800620010 
- PROJECT COST 



0100 
0180 
0110 
0120 
0150 
0170 
0140 
0130 
0190 
0200 
0220 
0104 
0101 
00D0004 
0102 
0105 
0160 
0210 
0308 
0309 
0112 



0305 
0310 
0109 
0303 
0306 
0311 
00D0002 
00D0003 
0312 
0313 
0314 
0315 



5 

15 
15 
15 
23 
38 
38 
38 
38 
38 
38 
38 
40 
58 
63 
63 
63 
63 
63 
63 
73 



5 




5 


* 


1 


37 


38 


37 


15 


5 


15 


* 


23 


15 


23 


* 


20 


33 


38 


18 



73 103 

73 93 

93 103 

103 113 

103 123 

103 103 

103 103 

123 133 

133 148 

148 178 

1 78 1 88 
PROJECT COMPLETION 



16 187 188 

38 23 38 

42 184 188 
40 186 188 
63 148 173 
53 158 173 
58 38 58 
40 108 110 
38 58 58 

43 110 113 
58 63 

185 188 

173 188 

63 73 

120 123 

83 93 

173 173 

103 123 

73 103 

93 113 

113 123 

168 178 

103 123 

123 123 

148 148 

123 133 

133 148 

148 178 

178 188 
188 



63 
66 
78 
73 
66 
73 
63 
93 



37 



18 

172 172 

* 

146 146 

148 148 
110 

120 10 



70 
20 
70 



57 
20 
110 

30 

* 

20 

20 

65 
* 

20 

45 



20 
50 



122 122 
110 110 



57 



10 



65 

20 

45 
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SAMPLE PROBLEM II 

The following sample problem was run using CPNAT and 
MISS LESS according to the recommended procedure already- 
outlined. The problem is the same one which appears in 
the MISS LESS abstract, except that the nodes and dummies 
were assigned by CPNAT, instead of first making an arrow 
diagram of the job. The following items are contained on 
the following pages: 

1. A list of the real jobs with unique numbers 
assigned to them. 

2. A list of the real jobs by number with the time 
duration, estimated cost, and prerequisites. 

3. A listing of the input cards for CPNAT. 

4. A listing of the output cards from CPNATi 

5. An arrow diagram as drawn from the listing of 
the output cards from CPNAT using its node 
numbers and generated dummies. 

6. A final listing as obtained from MISS LESS by 
running the output from CPNAT as input. 

This sample job is the one which was used in the debug- 
ging of CPNAT. It takes about 35 seconds to process this job, 
not including I/O time. Input and output are both read and 
punch bound. 
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A LIST OF REAL JOBS WITH ASSIGNED UNIQUE NUMBERS: 



JOB # 

Lead Time i 

Assemble Crews 2 

Measure and Sketch 3 

Develop Material List 4 

Time Available 5 

Deactivate Line g 

Erect Scaffold 7 

Procure Pipe g 

Procure Valves 9 

Prefab Sections 10 

Remove Old Pipe n 

Place New Pipe 12 

Weld Pipe 13 

Place Valves 14 

Insulate 15 

Fit up 16 

Pressure Test 17 

Remove Scaffold 18 

C le an Up 19 

Desired Completion 20 
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A LIST OF REAL JOBS WITH TIME DURATION, COST, AND PREREQUISITES 



Job 


Time 


Cost 


Prere 


1 


10 






2 


1 


25 


1 


3 


2 


300 


1 


4 


1 


100 


2.3 


5 


28 






6 


1 


100 


5 ,4 


7 


2 


300 


4 


8 


30 


850 


4 


9 


45 


300 


4 


10 


5 


1200 


8 


11 


6 


400 


6 7 


12 


6 


800 


11,10 


13 


2 


100 


12 


14 




100 


9,6,7 


15 




300 


13,14 


16 




100 


13,14 


17 




50 


16 


18 




100 


15 ,16 


19 




100 


18,17 


20 


60 







21 



a 



a 



CPNAT Input: 



0010 0001 

00010002500020001 

00020030000030001 

0001 001 00000400020003 

0028 0005 

0001 001 0000060005000^ 

0002003000007000^ 

00300085000080004 

00450030000090004 

00050120000100008 

000600400001 1 00060007 

000600800001 2001 1 001 

00020010000130012 

0001 001 00001 4000900060007 

000400300001 5001 3001 *t 

00010010000160013001^ 

00010005000170016 

000100100001800150016 

000100100001900180017 

0060 0020 
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COMPUTER 

TECHNOLOGY 



CPNAT Output : 



000100030010 0001 
000300080001 000250002 
000300080002003000003 
000800090001 001 000004 
000100120028 0005 
001200220001001000006 
000900220002003000007 
0009001 70030008500008 
000900280045003000009 
001 70024000501 200001 
00220024000600400001 1 
00240025000600800001 2 
002500300002001 00001 3 
002800300001 001 00001 4 
00300036000400300001 5 
003000330001 001 000016 
003300380001000500017 
003600380001001000018 
003800420001 001 00001 9 
000100420060 0020 
00090012 00 00D0001 
00220028 00 00D0002 
00330036 00 00D0003 
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An Arrow Diagram from the Output of CPNAT 
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MISS LESS Output: 



000100030010 0001 




10 




10 


* 


000300080001 000250002 


10 


1 1 


1 1 


12 


1 


000300080002003000003 


10 


12 


10 


12 


* 


000800090001 001 000004 


12 


13 


12 


13 


* 


000100120028 0005 




28 


16 


44 


16 


001200220001001000006 


28 


29 


44 


45 


16 


000900220002003000007 


13 


15 


43 


45 


30 


0009001 70030008500008 


13 


43 


16 


46 


3 


000900280045003000009 


13 


58 


13 


58 


* 


001 70024000501 200001 


43 


48 


46 


51 


3 


00220024000600400001 1 


29 


35 


45 


51 


16 


002400250006008000012 


48 


54 


51 


57 


3 


002500300002001 00001 3 


54 


56 


57 


59 


3 


002800300001001000014 


58 


59 


58 


59 


* 


003000360004003000015 


59 


63 


59 


63 


* 


003000330001001000016 


59 


60 


62 


63 


3 


003300380001000500017 


60 


61 


63 


64 


3 


003600380001001000018 


63 


64 


63 


64 


* 


003800420001001000019 


64 


65 


64 


65 


* 


000100420060 0020 




60 


5 


65 


5 


00090012 00 00D0001 


13 


13 


44 


44 


31 


00220028 00 0000002 


29 


29 


58 


58 


29 


00330036 00 00D0003 


60 


60 


63 


63 


3 


- PROJECT COST 5225 


PROJECT COMPLETION 




65 
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RATING INSTRUCTIONS 



A. Console Settings 

PARITY Switch 
OFLOW Switch 
I/O Switch 
All other Switches 



STOP 
STOP 
STOP 

Not Interrogated 



Operating Procedure 

Load Program Deck - Zero core. Depress RESET, 
place program deck in read hopper, press LOAD. 
To read final cards, press READER START. Com- 
puter halts when the program is loaded. 

Data Pass J_ - Place data deck in the read 
hopper, press READER START and computer START. 
To read the final data card press READER START. 
The program will then assign the necessary 
dummies and arrow nodes. If an error message 
is typed out and the computer continues, the 
most reasonable decision has been made and work 
continues, but should be checked for a possible 
error if the action taken does not fit this job. 
If an error message is typed and the computer 
halts, a serious error exists and must be cor- 
rected before the data deck can be handled 



successfully. If pass I is successfully 
completed, END PASS I is typed and the 
computer halts. 

Data Pass I I - Place the data deck in the read 
hopper and blank cards in the punch hopper. 
Press READER START, PUNCH START, and computer 
START. When this pass is completed, PROCESSING 
COMPLETE, is typed out and the computer halts. 
Pressing START then begins PASS I again for a 
new job. 

C. Expected Stops and Action to be Taken 

1. When END PASS I is typed out and the computer 
halts, press START to begin Pass II. 

2. When "PROCESSING COMPLETE." is typed out 
and the computer halts, press START to begin 
another job and Pass I. 

3. When an error message is typed out and the 
computer halts, press START to begin another 
job on Pass I. This job cannot be run until 
the condition in it which caused the error is 
corrected. See Error Messages for a list of 
all error messages and the action taken with 
each. 
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ERROR MESSAGES 

The following is a list of each error message and 
the action taken. 

ERROR 1 The same job appears more than once. The 
job number is typed out, the nodes of the 
job are changed, and processing continues. 
The final effect is equivalent to using 
this card as input with a punch in card 
column 1. 

The tables are full. The computer halts. 
Pressing START will cause a return to 
Pass I. This job must either be shortened 
or run on a machine with more available 
memory. 

A job used as a prerequisite was not de- 
fined. The job number is typed out. Pro- 
cessing continues by ignoring this pre- 
requisite. 

A job read in to be punched in Pass II was 
not defined in Pass I. The job number is 
typed out. The job is ignored and processing 
continues . 



ERROR 2 



ERROR 3 



ERROR 4 
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ERRORS WHILE RUNNING MISS LESS 

It is possible to successfully run a job on CPNAT, 
and then find errors while running on MISS LESS. These 
are not caused by CPNAT, but rather were present in the 
input used for CPNAT. For instance, it is possible to 
assign prerequisites in such a way that a loop will be 
found by MISS LESS. Remembers, CPNAT generates the nodes 
and dummies to fit the prerequisites exactly. If your 
prerequisites describe a loop, a loop will be generated. 

A common mistake made when assigning prerequisites is 
to specify for a prerequisite of a job, a job which is a 
prerequisite of another prerequisite of that job. For 
instance: Suppose job 10 has job 1 as a prerequisite. 
Suppose job 11 has job 10 as a prerequisite. It would be 
wrong to call both jobs 1 and 10 prerequisites of job 11. 
In this case, job 10 would have the same node assigned as 
both its I and J. This would then be caught by MISS LESS. 

The main rule to follow is name only jobs which must be 
performed immediately before the job in question as pre- 
requisites . 

Errors of these types are easily found by examining a 
listing of the output from CPNAT. 
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Core Layout: 

1. Console area is used for temporary storage. 

2. 00401 up to 01090 is used for storage, 01090 
is the beginning of the instruction area. 

3. START (01690) is the first instruction to be 
executed by the program. 

4. INIT (01742) is the first instruction of Pass I. 

5. The tables are built in the area from TABLES - 3 
(07891) to the top of the core. 

Likely Changes: 

1. Although the program was written to take the 
least storage possible, the programming time 
available did not allow full optimization. 
Many routines could probably be made shorter 
and some of the loops could be combined. Also, 
it probably would be possible to build new 
tables over old, partially used ones if great 
care was taken not to destroy needed information 

2. Incorporating Strip, Fill, or Indirect Address- 
ing would shorten the program considerably. 

3. Some of the routines which remove unnecessary 
dummies could be removed. This would result in 
a program which would run in a shorter period of 
time, but would have a longer number of dummies 

30 



in the output. 

4. Any changes can best be incorporated by altering 
the source deck and reasembling. 

5. Information and answers to specific questions 
can be answered either by consulting the list- 
ing and flow chart, or through correspondence 
with the author. 
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FLOW- CHART 



Following is the flow chart for CPNAT. Although sub- 
scripts are used quite extensively, they do not actually 
appear as such in the program. This could at times be 
confusing, but is necessary since the various tables can 
contain the actual information, the first address of the 
table containing the information, or even the address of 
the address containing the information. By referring to 
the flow-chart, the program listing, and the method of 
computation it should be possible to completely understand 
the program. 

The backbone of the program is a powerful Table 
Lookup routine which is used for locating information, 
depositing information, finding ends of tables, and recog- 
nizing table overlaps. 

The symbols used in the flow chart pretty much follow 
the ones used in the program. There are discrepencies 
where the program has used an area at different times for 
different things to conserve storage. In these cases the 
flow chart used meaningful names to make itself clearer. 
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* CRI TICA L PATH NODF ASSIGNMENT TFCHNIQUE.Z 



00405 




00004 




NODE 


DS 


4Z 


00407 




00080 




I NPUT 


DAS 


8 0Z 


00 566 




00001 






nr 

uv. 


i \ n 7 


00 567 




00 160 




Z E RO 


DSS 


1 6 OZ 


00727 




00001 






DC 


1 1 @Z 


00729 




00080 




/"M 1 T r* 1 IT 

OU i rU 1 


DAS 


80Z 


00888 




000 01 






DC 


1 » @Z 


00891 




00008 




ERROR 


DAC 


» tKKUK U(5?£ 


00910 




00005 


1 30 1 


TAB J 


DS A 


C| ID1 1 . T A RI CCxD 197 


00915 




0000 5 


0790 2 








00920 




00005 


00012 








00925 




000 5 


R 9999 


T ABD 


DSA 


QQQQO.OOQQQ.n7 


00930 




00005 


D O O CI O 








00935 




00005 


i~i C\ n n 
UUUUo 








00940 




00005 




DUMMY 


DS 


5Z 


00945 




00005 


0790 2 


T ABP 


DSA 


TAQI rCxo Or\OOQ D7 

lAcSLho+o oil 


00950 




0000 5 


R9999 








00955 




0000 5 


0000Q 








00960 




0000 5 


R9999 


T ABJJ 


DSA 


99999 »TABLES+4»12Z 


0U965 




0000 5 


07898 








00970 




00005 


00012 








00975 




00005 




DUMAD 


DS 


5Z 


00980 




00005 


D O O O Q 


TAB J I 


DSA 


QOOOQ-TAOI rc . 1 77 


00985 




00005 


7894 








00990 




00005 


00012 








00995 




00 00 5 


DQQQQ 
K7777 


TAD IT 
1 AD J 1 


DSA 


QQQQQ-TARI FC.-*-A»1?7 
7 7 7 7 7 9 lnDLCJ Ti r» Kt 


01000 




00005 


07898 








01005 




0000 5 


00012 








1 7 




000 1 1 




COT 


UAL 


1 1 . FWH DA CC T fS7 


01029 




0002 1 




PC 


DAC 


2 1 » PROCESS I NG COMPL ETE»@Z 


n i n a o 




00020 






DS 


20Z 


1 090 


16 


01132 


010 89 


ci 1 n 3 


1 r rl 




01102 


16 


0113 7 


01080 




TFM 




01114 


26 


010 80 


01089 




T c 

1 r 


CHRP — in.CIIR?— 17 


01126 


25 


n n n n n 


uuuuu 




1 L) 


7 


U J. 1 00 




m lift 

U 1 1 DO 


ni l ao 
U 1 1 5<c 




J p 


♦+in • #— £>7 




12 


m icq 


000 1 






#+ 1 fi • 1 • 1 07 




1 3 


n n n n n 


00007 




TDM 


♦ 7Z 


01174 


26 


1 197 


0113 2 




TF 




1 186 


44 


1 260 


uuuuu 




BN F 


*+ 74Z 


01198 


26 




01197 




jp 


*+18 »*— 1Z 


01210 


33 


00000 


00000 




CF 


Z 


01222 


26 


01252 


01216 




TF 


*+30»*-6Z 


01234 


12 


01252 


00001 




SM 


♦+18.1.10Z 


01246 


32 


00000 


00000 




SF 


Z 


01258 


42 


00000 


00000 




BB 


Z 


01260 










DORG 


*-9Z 


01260 


12 


01132 


00002 




SM 


SUB2+42,2»10Z 


01272 


12 


01137 


00001 




SM 


SUB2+47.1.10Z 


01284 


49 


01126 


00000 




B 


SUB2+36Z 


01291 










DORG 


*-4Z 


01300 




00010 






DS 


10Z 


01302 


16 


01337 


01299 


SUB1 


TFM 


*+35,SUBl-3Z 


01314 


16 


01332 


01300 




TFM 


*+18,SUBl-2Z 


01326 


25 


00000 


00000 




TD 


Z 



51 



01338 


26 


01361 


01332 




TF 


*+23»*-6Z 


01350 


44 


01364 


00000 




BNF 


*+14Z 


U1362 


42 


00000 


OOOCO 




BB 


Z 


01364 










DORG 


*-9Z 


01364 


12 


01332 


00001 




SM 


SUB1+30,1.10Z 


01376 


12 


01337 


00002 




SM 


SUB1+35,2»10Z 


01388 


49 


01326 


00000 




B 


SUB1+24Z 


01395 










DORG 


*-4Z 


01397 




00003 






DS 


3Z 


01398 


34 


00000 


00102 


ERMES 


RCTY 


Z 


01410 


25 


00903 


01397 




TD 


ERROR+2*6» ERMES- 1Z 


01422 


39 


00891 


00100 




WATY 


ERRORZ 


01434 


44 


01466 


01396 




BNF 


*+32.ERMES-2Z 


01446 


48 


00000 


00000 




H 


Z 


01458 


49 


01742 


00000 




B 


INITZ 


01466 










DORG 


*-3Z 


01466 


42 


00000 


00000 




BB 


Z 


01468 










DORG 


*-9Z 


01472 




00005 






DS 


5Z 


01474 


26 


01497 


01473 


TLU 


TF 


*+23.*-lZ 


01486 


26 


C1569 


00000 




TF 


*+83Z 


01498 


11 


01497 


00005 




AM 


*-l. 5» 10Z 


01510 


26 


01533 


01497 




TF 


*+23t*-13Z 


01522 


26 


01564 


00000 




TF 


*+42Z 


01534 


11 


01497 


00005 




AM 


*-37,5,10Z 


01546 


26 


01629 


01497 




TF 


*+83»*-49Z 


0155.8 


24 


00000 


00000 




C 


Z 


01570 


46 


01638 


01200 




BZ 


*+68Z 


01582 


26 


01600 


01564 




TF 


*+18»*-18Z 


01594 


14 


00000 


0R999 




CM 


»9999»8Z 


01606 


46 


01638 


01200 




BZ 


*+32Z 


01618 


21 


01564 


00000 




A 


*-54Z 


01630 


49 


01558 


00000 




B 


♦-72Z 


01638 










DORG 


*-3Z 


01638 


26 


00099 


01564 




TF 


99.TLU+90Z 


01650 


24 


00099 


02252 




C 


99.PLPRE+30Z 


01662 


47 


01686 


01300 




BN 


*+24Z 


01674 


17 


01398 


00002 




BTM 


ERMES » 2 » 10Z 


01686 


42 


00000 


00000 




BB 


Z 


01688 








* FIN 


DORG 
D TH 


*-9Z 

E SIZE OF THE MEMORY. Z 


01689 




00002 




RECMK 


DC 


2,@Z 


01690 


31 


J9999 


01688 


START 


TR 


19999.RECMK-1 »2Z 


01702 


45 


01722 


00000 




BNR 


*+20Z 


01714 


49 


01742 


00000 




B 


INITZ 


01722 










DORG 


*-3Z 


01722 


11 


01693 


000K.0 




AM 


START+3.20.10Z 


01734 


49 


01690 


00000 




B 


STARTZ 


01742 








* INI 


DORG 
TIAL 


*-3Z 

IZE THE TABLE AREA AND 


01742 


16 


01760 


07894 


INI T 


TFM 


*+18,TABLESZ 


01754 


16 


00000 


0R999 




TFM 


»9999»8Z 


01766 


11 


01760 


00004 




AM 


*-6»4» 10Z 


01778 


24 


01760 


01696 




C 


INIT+18,START+6Z 


01790 


47 


01754 


01100 




BNP 


INIT+12Z 


01802 


12 


01760 


00004 




SM 
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01814 


46 


01826 


00900 
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01826 


15 
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16 
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31 
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TR 
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16 
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32 
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11 
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14 
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26 
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TF 


PLPRE+30. INIT+18Z 


01934 


32 


00406 


00000 




SF 
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BT 
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14 
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CM 
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47 
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PLPREZ 
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17 


01474 


00910 
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TLU» TABJZ 
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26 


02036 


00099 




TF 
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14 


00000 
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CM 
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02042 


46 


02102 


01200 




3Z 
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02054 


17 


01398 


00001 




BTM 
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02066 


34 


00000 
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Z 


02073 




00001 






DC 


1,@,*-4Z 


02078 


26 


02072 


01301 




TF 
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38 
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00100 
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26 
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11 
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26 
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AM 
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02674 










DORG 


*-3Z 


02674 


26 


02697 


02504 


ASGN1 A 


TF 


*+23 » ASS I GN+54Z 


02686 


26 


01301 


OOOOO 




TF 


SUB1-1Z 


02698 


17 


01474 


00910 




BTM 


TLU» TABJZ 


2710 


26 


02728 


00099 




TF 


*+18»99Z 


02722 


14 


OOOOO 


0R999 




CM 


»9999 »8Z 


02734 


47 


02802 


01200 




BNZ 


*+68Z 


02746 


17 


01398 


00003 




BTM 


ERMES.3.9Z 


02758 


26 


02776 


01301 




TF 


*+18.SUBl-lZ 


02770 


34 


OOOOO 


00102 




RCTY 


Z 


02777 




00001 






DC 


1 ,@, *-4Z 


02782 


38 


02773 


00100 




WNTY 


*-9Z 


02794 


49 


02654 


OOOOO 




B 


ASGN1B+12Z 


02802 










DORG 


*-3Z 


02802 


12 


00099 


00004 




SM 


99.4. 10Z 


02814 


26 


02861 


00099 




TF 


♦+47.99Z 


02826 


26 


02856 


00940 




TF 


♦+30.DUMMYZ 


02838 


12 


02856 


00004 




SM 


*+18 .4. 10Z 


02850 


26 


OOOOO 


OOOOO 




TF 


Z 


02862 


26 


02885 


02456 




TF 


*+23 » ASS IGN+6Z 


02874 


26 


C1301 


OOOOO 




TF 


SUB1-1Z 


02886 


17 


01474 


00910 




BTM 


TLU. TABJZ 


02898 


12 


00099 


00008 




SM 


99 .8 . 10Z 


02910 


26 


02945 


00099 




TF 


*+35 »99Z 


02922 


26 


02940 


00940 




TF 


*+18 .DUMMYZ 


02934 


26 


OOOOO 


OOOOO 




TF 


Z 


02946 


49 


02642 


OOOOO 




B 


ASGN1BZ 


02954 








* ASS 


DORG 
IGN 


*-3Z 

DUMMIES FOR JOBS NOT USED AS A PREREQUISITE 


02954 


16 


00945 


07902 


ASGN2 


TFM 


TABP.TABLES+8Z 


02966 


15 


01663 


00009 




TDM 


TLU+189.9Z 


02978 


26 


00950 


01760 




TF 


TABP+5.INIT+18Z 


02990 


12 


00950 


00004 




SM 


TABP+5.4. 10Z 


03002 


17 


01474 


00945 




BTM 


TLU . TABPZ 


03014 


26 


03032 


00099 




TF 


*+18 »99Z 


03026 


14 


OOOOO 


0R999 




CM 


.9999.8Z 


03038 


47 


03146 


01200 




BNZ 


*+108Z 


03050 


26 


03068 


00940 




TF 


*+18 , DUMMYZ 


03062 


26 


OOOOO 


00405 




TF 


. NODEZ 


03074 


26 


03133 


0C945 




TF 


*+59 , TABPZ 



5 4 



03086 


12 


03133 


00004 




SM 


*+47>4»10Z 


03098 


26 


03128 


00940 




TF 


*+30, DUMMYZ 


03110 


12 


03128 


00004 




SM 


*+18»4,10Z 


03122 


26 


00000 


00000 




TF 


Z 


03134 


11 


00940 


00008 




AM 


DUMMY » 8 » 1 OZ 


03146 


11 


00945 


000J2 




AM 


TABP»12,10Z 


03158 


26 


03176 


00945 




TF 


*+18,TABPZ 


03170 


14 


00000 


CR999 




CM 


,9999, 8Z 


03182 


47 


03002 


01200 




BNZ 


ASGN2+48Z 










* ROU 


TINE 


FOR D I SCARD I t 


03194 


26 


00975 


00930 




TF 


DUMAD, TABD+5Z 


03206 


26 


0094C 


00930 




TF 


DUMMY, TABD+5Z 


03218 


26 


00960 


00940 


TEST 


TF 


T AB J J , DUMMYZ 


03230 


17 


01474 


00960 




BTM 


TLU.TABJJZ 


3242 


26 


03260 


00099 




TF 


*+18,99Z 


03254 


14 


00000 


0R999 




CM 


,9999,8Z 


03266 


47 


03570 


01200 




BNZ 


TEST2Z 


03278 


26 


00925 


00940 




TF 


TABD, DUMMYZ 


03290 


26 


00930 


00975 




TF 


TABD+5 , DUMADZ 


03302 


17 


01474 


00925 


TEST1B 


BTM 


TLU, TABDZ 


03314 


26 


03332 


00099 




TF 


*+18,99Z 


03326 


14 


00000 


0R999 




CM 


,9999, 8Z 


03338 


46 


03406 


01200 




BZ 


TEST1AZ 


03350 


24 


00099 


00925 




C 


99, TABDZ 


03362 


47 


03570 


01200 




BNZ 


TEST2Z 


03374 


11 


00099 


00008 




AM 


99,8»10Z 


03386 


26 


00930 


00099 




TF 


TABD+5, 99Z 


03398 


49 


03302 


00000 




B 


TEST 1BZ 


03406 










DORG 


*-3Z 


03406 


26 


00980 


00960 


TEST 1 A 


TF 


TABJI .TABJJZ 


03418 


17 


01474 


00980 




BTM 


TLU.TABJIZ 


03430 


26 


03448 


00099 




TF 


*+18 ,99Z 


03442 


14 


00000 


0R999 




CM 


,9999,8Z 


03454 


46 


03570 


01200 




BZ 


TEST2Z 


03466 


26 


03513 


00980 




TF 


*+47,TABJIZ 


03478 


12 


03513 


00004 




SM 


*+35,4,10Z 


03490 


26 


03508 


00099 




TF 


*+18,99Z 


03502 


26 


00000 


00000 




TF 


Z 


03514 


26 


03532 


03513 




TF 


*+18,*-lZ 


03526 


16 


00000 


0R998 




TFM 


,9998 ,8Z 


03538 


26 


03556 


00940 




TF 


*+18 , DUMMYZ 


03550 


16 


00000 


0R998 




TFM 


,9998,8Z 


03562 


49 


04122 


00000 




B 


ETESTZ 


03570 










DORG 


*-3Z 


03570 


26 


00980 


00940 


TEST2 


TF 


TABJI , DUMMYZ 


03582 


12 


00980 


00004 




SM 


TABJI ,4,10Z 


03594 


17 


01474 


00980 




BTM 


TLU , TAB J I Z 


03606 


26 


03624 


00099 




TF 


*+18 ,99Z 


03618 


14 


00000 


0R999 




CM 


,9999, 8Z 


03630 


47 


04122 


01200 




BNZ 


ETESTZ 


03642 


26 


00930 


00975 




TF 


TABD+5 , DUMADZ 


03654 


12 


00930 


0C004 




SM 


TABD+5 » 4 » 1 OZ 


03666 


26 


00925 


0C980 




TF 


TABD , TABJ I Z 


03678 


17 


01474 


00925 




BTM 


TLU, TABDZ 


03690 


24 


00099 


00925 




C 


99»TABDZ 


03702 


47 


03734 


01200 




BNZ 


TEST2AZ 


03714 


11 


00930 


00008 




AM 


TABD+5, 8 , 10Z 



55 



DUMMIES. Z 



03726 

03734 

03734 

03746 

03758 

03770 

03782 

03794 

03806 

03818 

03830 

03842 

03854 

03866 

03878 

03890 

03902- 

03914 

03922 

03922 

03934 

03946 

03958 

03970 

03982 

03994 

04006 

04018 

04030 

04042 

04054 

04062 

04062 

04074 

04086 

04098 

04110 

04122 

04134 

04146 

04158 

04170 
04182 
04194 
04206 
04218 
04230 
04242 
04254 
04266 
04278 
04290 
04302 
04314 
04326 
04338 



49 C3678 00000 



26 03752 
14 00000 
47 04122 
26 00995 
12 00995 

16 01000 

17 01474 
26 03836 
14 00000 
46 03922 
26 03884 
26 03889 
26 00000 
11 00099 
26 01000 
49 03806 

26 00930 
26 00925 
17 01474 
26 03976 
14 00000 

46 04062 
26 04024 
26 04029 
26 00000 

11 00099 
26 00930 
49 03946 

26 04080 

16 00000 

26 04116 

12 04116 
16 00000 
11 00940 
26 04152 

14 00000 

47 03218 

15 01663 
26 04703 
11 02252 
26 00930 

16 00925 

17 01474 
11 00099 
26 04718 
16 04728 
26 00960 
26 04308 
16 00000 
11 04308 
26 04344 
14 00000 



00099 
0R999 
01200 
00940 
00004 
07898 
00995 
00099 
0R999 
01200 
00099 
00940 
00000 
000J2 
00099 
00000 

00975 
00995 
00925 
00099 
0R999 
01200 
00099 
00940 
00000 
00008 
00099 
00000 

00940 
0R998 
04080 
00004 
0R998 
00008 
00940 
0R999 
01200 

00007 
02252 
00004 
00975 
01765 
00925 
00008 
00099 
07894 
04728 
04718 
0R999 
00004 
04308 
0R999 



DORG 
TEST2 A TF 
CM 
BNZ 
TF 
SM 
TFM 
BTM 
TF 
CM 
BZ 
TF 
TF 
TF 
AM 
TF 
B 

DORG 
TEST2B TF 
TF 
BTM 
TF 
CM 
BZ 
TF 
TF 
TF 
AM 
TF 
B 

DORG 
TEST2C TF 
TFM 
TF 
SM 
TFM 
AM 
TF 
CM 
BNZ 
ROU TINE 
TDM 
TF 
AM 
TF 
TFM 
BTM 
AM 
TF 
TFM 
A TF 
TF 
TFM 
AM 
TF 
CM 



ETEST 



*-48Z 
*-3Z 

*+18,99Z 
,9999,8Z 

ETESTZ 

TABJT, DUMMYZ 

TABJT,4,10Z 

TAB JT+5 , TABLE S+4Z 

TLU, TABJTZ 

*+18 ,99Z 

.9999.8Z 

TEST2BZ 

*+30,99Z 

*+23, DUMMYZ 

Z 

99.12.10Z 
TAB JT + 5 » 99Z 
*-108Z 
*-3Z 

TABD+5. DUMADZ 
TABD . TABJTZ 
TLU. TABDZ 
*+18.99Z 
.9999.8Z 
TEST2CZ 
*+30,99Z 
*+23 . DUMMYZ 
Z 

99.8.10Z 
TABD+5.99Z 
*-108Z 
*-3Z 

*+18. DUMMYZ 
.9998.8Z 
*+30,*-6Z 
*+18 .4. 10Z 
.9998.8Z 
DUMMY. 8.10Z 
*+18 .DUMMYZ 
.9999.8Z 
TESTZ 

TO ELIMINATE DUMMIES FROM JOBS WITH I DENT ] 
TLU+189.7Z 
TJBI+5.PLPRE+30Z 
PLPRE+30.4.10Z 
TABD+5. DUMADZ 
TABD. INIT+23Z 
TLU. TABDZ 
99.8.10Z 
TJBDI+5,99Z 
JOBI ,TABLESZ 
T AB J J , JOB I Z 
*+18 .TJBDI + 5Z 
.9999.8Z 
*-6»4» 10Z 
*+18»*-18Z 
,9999, 8Z 



56 



e 



04350 47 04302 01200 
04362 26 04380 04703 
04374 16 00000 0R999 
04386 12 04380 00004 
04398 26 04416 04380 
04410 14 00000 0R999 
04422 47 04374 01200 
04434 17 01474 C0960 
04446 26 04464 00099 
04458 14 00000 0R999 
04470 47 06780 01200 
04482 16 04731 00000 
04494 26 00925 00960 
04506 26 00930 0C975 
04518 17 01474 00925 
04530 26 04548 00099 
04542 14 00000 CR999 
04554 46 04736 01200 
04566 26 00089 00099 
04578 26 04649 00099 
04590 12 04649 00004 
04602 16 04713 01765 
04614 17 01474 04713 
04626 26 04644 00099 
04638 26 00000 00000 
04650 11 00089 00008 
04662 26 00930 C0089 
04674 11 04731 00001 
04686 49 04518 00000 
04694 

04698 00005 R9999 TJBI 

04703 00005 R9999 
04708 00005 0000M 
04713 00005 R9999 TJBDI 

04718 00005 R9999 
04723 00u05 00C04 
04728 00005 JOSI 
04731 00003 DC1 

04734 00003 DC2 
04736 11 00960 0OOJ2 TSTAC 
04748 26 04766 00960 
04760 14 00000 0R999 
04772 46 05196 01200 
04784 17 01474 00960 
04796 26 04814 00099 
04808 14 00000 0R999 
04820 47. 04736 01200 
04832 26 00925 00960 
04844 26 00930 0C975 
U4856 16 04734 OCOOO 
04868 17 01474 00925 TSTAE 
04880 26 04898 00099 
04892 14 00000 0R999 
04904 46 05044 01200 
04916 26 04713 00099 
04928 26 00089 00099 
04940 12 04713 0C0C4 



BNZ *-48Z 

TF *+18,TJBI+5Z 

TFM ,9999, 8Z 

SM *-6,4,10Z 

TF *+18,*-18Z 

CM .9999, 8Z 

BNZ *-48Z 

BTM TLU.TABJJZ 

TF *+18,99Z 

CM ,9999, 8Z 

BNZ TSTAZZ 

TFM DC1,»9Z 

TF TABO.TABJJZ 

TF T ABD+5 » DUMADZ 

TSTAB BTM TLU» TABDZ 

TF *+18,99Z 

CM .9999, 8Z 

BZ TSTACZ 

TF 89,99Z 

TF *+71,99Z 

SM *+59,4,10Z 

TFM TJBDI , INIT+23Z 

BTM TLU.TJBDIZ 

TF *+18»99Z 

TF Z 

AM 89.8»10Z 

TF TABD+5.89Z 

AM DC1,1,10Z 

B TSTABZ 

DORG *-3Z 

DSA 99999, 99999>-4Z 



DSA 99999, 99999, 4Z 



DS 


5Z 


DS 


3Z 


DS 


3Z 


AM 


TAB J J , 12 , 10Z 


TF 


*+18,TABJJZ 


CM 


,9999, 8Z 


BZ 


TSTADZ 


BTM 


TLU.TABJJZ 


TF 


*+18 ,99Z 


CM 


,9999, 8Z 


BNZ 


TSTACZ 


TF 


T ABD , TAB J JZ 


TF 


T ABD+5 , DUMADZ 


TFM 


DC2 , »9Z 


BTM 


TLU, TABDZ 


TF 


*+18 ,99Z 


CM 


,9999, 8Z 


BZ 


TSTAFZ 


TF 


TJBDI ,99Z 


TF 


89 ,99Z 


SM 


TJBDI ,4, 10Z 



57 



04952 


17 


1474 


04713 






TLU,TJBDIZ 


04964 


26 


4 9 8 2 


00099 




TF 


*+ 1 8 » 99Z 


04976 


14 




R 9 9 9 




CM 


,9999 , 8Z 


04988 


46 


4 7 3 6 


012 




BZ 


TSTACZ 


05000 


1 1 


04734 


COO 1 




AM 


DC2 , 1 , 10Z 


5 012 


1 1 


00089 


00 8 




A M 


89,8,10Z 


05024 


26 


00 9 3 






T F 


TABD+5,89Z 


05036 


49 


04868 


OOOCO 




3 


TSTAEZ 


05044 










DORG 


*- 3Z 


05044 


24 


04731 


04734 


T S T AF 


C 


DC 1 , DC2Z 


5 56 


47 


04736 


012 




BNZ 


TSTACZ 


05068 


1 6 


046 9 8 


0469^ 




TFM 


TJBI , I NI T+23Z 


05080 


1 7 


014 7 4 






BTM 


TLU , T JB I Z 


05 092 


26 


C 5 1 2 2 






TF 


*+30»99Z 


5104 


1 2 








SM 


*+18 ,4, 10Z 


5116 


1 4 


o n n n rt 

U U 'J u u 


99 




CM 


»9999»8Z 


512 8 






12 1. 




BZ 


*+24Z 


5140 


I 7 


01398 


C u 2 




BTM 


ERMFS , 2 , 1 OZ 


05152 


2 6 


5 18 7 


C 9 2 5 




TF 


*+35, TABDZ 


5164 


26 


518 2 






TF 


*+18 ,99Z 


5176 


26 


00000 


u 




TF 


Z 


5188 


49 


04736 


uOOOO 




B 


TSTACZ 


5196 










DORG 


*-3Z 


J5196 


26 


5 214 


470 3 


T ST AD 


TF 


*+18,TJBI+5Z 


05208 


1 4 




R 9 9 9 




CM 


,9999 ,8Z 


05220 


46 


5 39 2 


n -r o 




BZ 


TSTAGZ 


05232 


1 6 


0100 


07894 




TFM 


TABJT+5,TABLESZ 


05244 


26 


0099 5 


5214 




TF 


TABJT,TSTAD+18Z 


05256 


1 7 


01474 






BTM 


TLU, T AB JTZ 


05268 


26 


5 286 






TF 


*+18 ,99Z 


05280 


1 4 


00000 


R 9 9 9 




CM 


,9999,8Z 


05292 


46 


05372 


012 00 




BZ 


TSTAHZ 


05 304 


26 


5 3 39 






T F 


*+35 , JOB I Z 


05316 


26 


5 3 3 4 


00 99 




TF 


*+18 ,99Z 


05328 


26 


00 


00000 




T F 


Z 


05340 


1 1 


00099 


00 J 2 




AM 


99 , 12 , 10Z 


«j5352 


26 


1000 


00 99 




TF 


T AB JT+5 , 99Z 


05364 


49 


5 2 56 


00000 




B 


TSTAD+60Z 


05372 










DORG 


*- 3Z 


05372 


12 


05214 


00004 


TSTAH 


SM 


T S T AD+ 18,4,10Z 


05384 


49 


05208 


OOOCO 




B 


TSTAD+12Z 


05392 










DORG 


#-3Z 


05392 


26 


05410 


04703 


TSTAG 


TF 


*+18,TJBI+5Z 


05404 


14 


00000 


0R999 




CM 


,9999, 8Z 


05416 


46 


05600 


01200 




BZ 


TSTAJZ 


05428 


26 


00930 


00975 




TF 


TABD+5, DUMADZ 


05440 


12 


00930 


00004 




SM 


TABD+5,4,10Z 


05452 


26 


00925 


05410 




TF 


TABD,TSTAG+18Z 


5464 


17 


01474 


00925 




BTM 


TLU, TABDZ 


05476 


26 


05494 


00099 




TF 


*+18 ,99Z 


05488 


14 


00000 


0R999 




CM 


,9999, 8Z 


05500 


46 


05580 


01200 




BZ 


TSTAKZ 


05512 


26 


05547 


04728 




TF 


*+35, JOBIZ 


05524 


26 


05542 


00099 




TF 


*+18 ,99Z 


05536 


26 





00000 




TF 


7 


05548 


11 


00099 


00008 




AM 


?9,8,10Z 


05560 


26 


00930 


0C099 




TF 


fABD+5 ,99Z 



58 



5572 


49 


05464 


00 




B 




5 580 










DORG 


*— 3Z 


5580 


1 2 


0541 


000 4 


jSTAK. 


SM 


TSTAG+18.4.10Z 


5592 


49 


05404 


ooooo 




g 


T AA + 177 


r! c ^nn 










DORG 


*— 3Z 


5600 


26 


0092 5 


04728 


TCTft 1 

1 o 1 M.J 


TF 


T A R H » iflR T 7 


5612 


2 6 


009 30 


00975 




TF 


TABD+5 » DUM ADZ 












B TM 


T1 11 • T ARH7 


5636 


26 


05 654 


00099 




TF 


*+ 18 » 99Z 


5 648 


1 4 


nnnnn 


0R999 




CM 


,9999,82 


net t n 


46 




01200 




BZ 


TSTRAZ 


567 2 


26 


05690 


00099 




t r 


■*+ 1 8 . 99Z 


5684 




nnnnn 
uuuuu 


R 9 9 8 




TF M 


, 9998 » 8Z 


5696 


1 2 


05690 


0000 4 




SM 


*— 6 » 4 » 10Z 


5708 


26 


05 726 


05690 




j p 


*+ 18 »*—l 8 Z 


5720 


1 6 


ooooo 


0R998 




TFM 


» 9998 » 8Z 


5732 




00099 


00008 




AM 


99,8, 10Z 


5 744 


26 


0093 






T F 


TARH + ti - QQ7 

1 HuU T J 9 7 7 t- 


5756 


A O 


05624 


nnnnn 




B 


TCTA 14.?/, 7 


5764 












*— 3Z 




26 


05782 


04703 


T STR A 


T F 


*+ 18 > T JB I + 5Z 


5776 


1 4 


nnnnn 
U U U U u 


R9 9 9 




CM 


,9999,82 


5788 


46 


05984 


012 00 




BZ 


TSTC AZ 


05800 


26 


0092 5 


5782 




TF 


TABP..TCTDAxl Q7 


5812 


26 


009 30 






1 r 






1 7 




00925 




B T M 


TMl* TARH7 


5836 


2 6 


05 8 54 


0099 




T F 


*+ 1 8 » 99Z 




1 4 


nnnnn 

U \J u u u 


R9 9 9 






, 9999 , 8Z 


5860 


46 


05964 






BZ 


T S TR BZ 


05872 






00099 




T P 


#4- 1 O .QC7 
""lO 9 7 7 L. 




1 


ooooo 


9 3 




TFM 


9 7 7 7 O . O £. 


05896 


IT 
X ^ 


5 890 


n n nn a. 

U U U V H 




SM 


*— 6 ♦ 4 » 1 0Z 


5908 


26 


05926 


05890 




TF 


*+18 »*-18Z 


5920 


1 6 




R998 




TFM 


,9998,8Z 


5932 




00099 


0008 




AM 


99 , 8 . 10Z 


ACQ/./. 


26 


00930 


00099 




T F 


T A RH+ R.QQ7 
1 HDL/~J 9 7 7 i- 


5956 


49 


5824 


nnnnn 




B 




5964 












*— 3Z 


59 6 4 


1 2 


5 78 2 


n n nn a. 


T 5TRB 


SM 


T^TRA+lft.&.IO? 


5976 


49 


05 7 76 


nnnnn 




g 


TCTRA+1 ? 7 


5984 










DORG 


*— 3Z 


05984 


26 


06002 


04718 


TSTCA 


TF 


*+ 18 » T JBD I +5Z 


05996 


14 


ooooo 


0R999 




CM 


♦9999. 8Z 


06 008 


46 


06180 


1200 




BZ 


TSTALZ 


06020 


16 


01000 


07898 




TFM 


TABJT+5.TABLES+4Z 


06032 


26 


00995 


06002 




TF 


TA3JT.TSTCA+18Z 


06044 


17 


01474 


00995 




BTM 


TLU» TABJTZ 


06056 


26 


06074 


00099 




TF 


*+18,99Z 


06068 


14 


ooooo 


0R999 




CM 


.9999.8Z 


06080 


46 


06160 


01200 




BZ 


TSTAMZ 


06092 


26 


06127 


04728 




TF 


*+35. JOBIZ 


06104 


26 


06122 


00099 




TF 


*+18 .99Z 


06116 


26 


ooooo 


OCCOO 




TF 


Z 


06128 


11 


00099 


000J2 




AM 


99.12.10Z 


06140 


26 


01000 


00099 




TF 


TAB JT+5 . 99Z 


06152 


49 


06044 


ooooo 




B 


TSTCA+60Z 


06160 








59 


DORG 


*-3Z 



06160 


1 1 


06002 


000C4 


T ST AM 


AM 


TSTCA+18.4.10Z 


06172 


49 


05996 


ooooo 




B 


TSTCA+12Z 


06180 










DORG 


*-3Z 


06180 


26 


06198 


04718 


TSTAL 


TF 


♦+18.TJBDI+5Z 


06192 


14 


ooooo 


0R999 




CM 


.9999.8Z 


06204 


46 


06376 


01200 




az 


TSTBAZ 


06216 


26 


00930 


00975 




TF 


TABD+5. DUMADZ 


06228 


26 


00925 


06198 




TF 


TABD.TSTAL+18Z 


06240 


17 


01474 


00925 




BTM 


TLU.TABDZ 


06252 


26 


06270 


00099 




TF 


*+18 .99Z 


06264 


14 


ooooo 


0R999 




CM 


.9999.8Z 


06276 


46 


06356 


01200 




BZ 


TSTVVZ 


6288 


26 


06323 


04728 




TF 


*+35> JOBIZ 


06300 


26 


06318 


00099 




TF 


*+18 .99Z 


06312 


26 


ooooo 


ooooo 




TF 


Z 


06324 


1 1 


00099 


00008 




AM 


99.8.10Z 


63 36 


26 


00 9 30 


00099 




TF 


TABD+5. 99Z 


06348 


49 


06240 


ooooo 




B 


TSTAL+60Z 


06356 










DORG 


*-3Z 


06356 


1 1 


06198 


00004 


TSTVV 


AM 


TSTAL+18.4.10Z 


06368 


49 


06192 


ooooo 




B 


TSTAL+12Z 


06376 










DORG 


*-3Z 


06376 


26 


06394 


04718 


TSTBA 


TF 


*+18 .TJBDI+5Z 


06388 


14 


ooooo 


0R999 




CM 


.9999.8Z 


06400 


46 


06572 


01200 




BZ 


TSTDAZ 


641 2 


16 


1000 


07894 




TFM 


TABJT+5.TABLESZ 


06424 


26 


00995 


06394 




TF 


TABJT»TSTBA+18Z 


06436 


17 


01474 


00995 




BTM 


TLU. TABJTZ 


06448 


26 


06466 


00099 




TF 


♦+18.99Z 


06460 


14 


ooooo 


0R999 




CM 


.9999.8Z 


6472 


46 


06552 


01200 




BZ 


TSTDBZ 


06484 


26 


06519 


04728 




TF 


*+35» JOBIZ 


06496 


26 


06514 


00099 




TF 


*+18»99Z 


06508 


26 


ooooo 


ooooo 




TF 


Z 


06520 


1 1 


00099 


000J2 




AM 


99.12.10Z 


06532 


26 


01000 


00099 




TF 


TAB JT + 5 » 99Z 


06544 


49 


06436 


ooooo 




B 


TSTBA+60Z 


06552 










DORG 


*-3Z 


06552 


11 


06394 


00004 


TSTDB 


AM 


TSTBA+18.4.10Z 


06564 


49 


06388 


ooooo 




B 


TSTBA+12Z 


06572 










DORG 


*-3Z 


06572 


26 


06590 


04718 


TSTDA 


TF 


*+ 18 . T JBD I+5Z 


06584 


14 


ooooo 


0R999 




CM 


.9999.8Z 


06596 


46 


06780 


01200 




BZ 


TSTAZZ 


06608 


26 


00930 


00975 




TF 


TABD+5. DUMADZ 


06620 


12 


00930 


00004 




SM 


TABD+5. 4. 10Z 


06632 


26 


00925 


06590 




TF 


TABD . TSTDA+18Z 


06644 


17 


01474 


00925 




BTM 


TLU.TABDZ 


06656 


26 


06674 


00099 




TF 


*+18 »99Z 


06668 


14 


ooooo 


0R999 




CM 


.9999.8Z 


06680 


46 


06760 


01200 




BZ 


TSTDDZ 


06692 


26 


06727 


04728 




TF 


*+35 . JOB I Z 


06704 


26 


06722 


00099 




TF 


*+18 »99Z 


06716 


26 


ooooo 


ooooo 




TF 


Z 


06728 


11 


00099 


00008 




AM 


99.8.10Z 


06740 


26 


00930 


00099 




TF 


TABD+5. 99Z 


06752 


49 


06644 


ooooo 




B 


T5TDA+72Z 



«0 



06760 

06760 11 06590 00004 

06772 49 06584 00000 
06780 

06780 11 04728 000J2 

06792 26 06810 04728 

06804 14 00000 0R999 

06816 47 04278 01200 

06828 26 00925 00975 
06840 26 00930 00975 
06852 17 01474 00925 
06864 26 06882 00099 
06876 14 00000 0R999 
06888 46 07088 01200 
06900 24 00099 00925 
06912 46 07056 01200 
06924 26 06983 00925 
06936 26 06978 00099 
06948 12 06978 00004 
06960 12 06983 00004 
06972 24 00000 00000 
06984 47 07056 01200 
06996 26 07014 00099 
07008 16 00000 0R998 
07020 12 07014 00004 
07032 26 07050 07014 
07044 16 00000 0R998 
07056 11 00099 00008 
07068 26 00930 00099 
07080 49 06852 00000 
07088 

07088 11 00925 00008 
07100. 26 07118 00925 
07112 14 00000 0R999 
07124 47 06840 01200 
07136 34 00000 00102 
07148 39 01007 00100 
07160 48 00000 00000 

07172 31 00406 00567 
07184 32 00406 00000 
07196 32 00408 00000 
07208 32 00416 00000 
J7220 32 00427 00000 
07232 37 00407 0C500 
07244 31 00728 00567 
07256 14 00407 00000 
07268 47 07552 01200 
07280 27 01302 00433 
07292 17 01474 00910 
07304 26 07322 00099 
07316 14 00000- 0R999 
07328 47 07396 01200 
07340 17 01398 00004 
07352 26 07370 01301 
07364 34 00000 00102 



DORG *-3Z 

TSTDD AM TSTDA+18 ,4, 10Z 

3 TSTDA+12Z 

DORG *-3Z 

TSTAZ AM JOBI.12.10Z 

TF *+18,J0BIZ 

CM ,9999, 8Z 

BNZ TSTAZ 

* THI S RO UTINE DROPS IDENTICAL DUMMIES. Z 

TF TABD, DUMADZ 

DRE1 TF T ABD+5 » DUMADZ 

BTM TLU» TABDZ 

TF *+18,99Z 

CM »9999»8Z 

BZ DRE3Z 

C 99 .TABDZ 

BZ DRF2Z 

TF *+59, TABDZ 

TF *+42.99Z 

SM *+30,4,10Z 

SM *+23,4,10Z 

C Z 

BNZ DRE2Z 

TF *+18,99Z 

TFM ,9998, 8Z 

SM *-6»4»10Z 

TF *+18,*-18Z 

TFM .9998.8Z 

DRE2 AM 99.8, 10Z 

TF TABD+5.99Z 

B DRE1+12Z 

DORG *-3Z 

DRE3 AM TABD.8.10Z 

TF *+18»TABDZ 

CM ,9999. 8Z 

BNZ DRE1Z 

RCTY Z 

WATY EPIZ 

H Z 

* ROU TINE FOR PUNCHING THE JOB CARDS. Z 

TR INPUT-1 ,ZEROZ 

SF INPUT-1Z 

SF INPUT+2*2-3Z 

SF INPUT+2*6-3Z 

SF INPUT+2*! 1-2Z 

READ 2 RACD INPUTZ 

TR OUTPUT-1 ,ZEROZ 

CM INPUT.»10Z 

BNZ READ2AZ 

BT SUB1 . INPUT+2*14-2Z 

BTM TLU.TABJZ 

TF *+18,99Z 

CM ,9999. 8Z 

BNZ *+68Z 

BTM ERMES»4,9Z 

TF *+18,SUBl-lZ 

RCTY Z 



07371 




00001 






DC 


07376 


38 


07367 


00100 




WNTY 


07388 


49 


07552 


00000 




B 


07396 










DORG 


07396 


12 


00099 


00004 




SM 


07408 


26 


07431 


00099 




TF 


07420 


27 


01090 


00000 




BT 


07432 


26 


00743 


01089 




TF 


07444 


12 


00099 


00004 




SM 


07456 


26 


07479 


00099 




TF 


07468 


27 


01090 


coooo 




BT 


07480 


26 


00735 


01089 




TF 


07492 


26 


00751 


00415 




TF 


07504 


26 


00761 


00425 




TF 


07516 


27 


01090 


01301 




BT 


7-52 8 


26 


00769 


01039 




TF 


07540 


39 


00729 


00400 




WACD 


07552 


47 


07232 


00900 


READ2A 


BNLC 










* ROU 


T I NE 


07564 


31 


00728 


00567 




TR 


07576 


16 


00763 


000M4 




TFM 


07588 


16 


00761 


0P070 




TFM 


076U0 


16 


00751 


0P070 




TFM 


07612 


16 


00940 


00001 




TFM 


07624 


26 


07642 


00975 


PUNCHD 


TF 


07636 


14 


00000 


0R999 




CM 


07648 


47 


07704 


01200 




BNZ 


07660 


34 


00000 


00102 




RCTY 


07672 


39 


01029 


00100. 




WATY 


07684 


48 


00000 


00000 




H 


07696 


49 


01742 


00000 




B 


07704 










DORG 


07704 


26 


07722 


00975 




TF 


7 716 


14 


ooooo 


0R998 




CM 


07728 


46 


07872 


01200 




BZ 




26 


7 7 75 


00975 




TF 


07752 


12 


07775 


00004 




SM 


07764 


27 


01090 


00000 




BT 


07776 


26 


00735 


01089 




TF 


07788 


26 


C7811 


00975 




TF 


07800 


27 


01u90 


00000 




BT 


07812 


26 


00743 


01089 




TF 


07824 


27 


01090 


00940 




BT 


07836 


26 


00771 


01089 




TF 


07848 


39 


00729 


00400 




WACD 


07860 


11 


00940 


00001 




AM 


07872 


11 


00975 


00008 


PCHEND 


AM 


07884 


49 


07624 


00000 




B 


07894 




00000 




TABLES 


DS 


01690 










DEND 



1 »@» *-4Z 
*-9Z 

READ2AZ 
*-3Z 

99,4. 10Z 
*+23»99Z 
SUB2Z 

OUTPUT+2*8-2,SUB2-lZ 

99.4.10Z 

*+23»99Z 

SUB2Z 

0UTPUT+2*4-2,SUB2-lZ 

OUTPUT+2*12-2, I NPUT+2*5-2Z 

OUTPUT + 2 * 17-2, INPUT + 2* 10-2Z 

SU32 »SUB1-1Z 

0UTPUT+2*21-2,SUB2-1Z 

OUTPUTZ 

READ2Z 

FOR PUNCHING THE DUMMY CARDS. Z 
OUTPUT-1 ,ZEROZ 
OUTPUT+2* 18-2, 44, 10Z 
OUTPUT+2*17-2»7 070,8Z 
OUTPUT+2* 12-2. 7070, 8Z 
DUMMY, 1,8Z 
*+ 1 8 > DUMADZ 
,9999, 8Z 
*+56Z 
Z 

PCZ 

z 

INITZ 
*-3Z 

*+18 .DUMADZ 
,9998 ,8Z 
PCHENDZ 
*+35 .DUMADZ 
*+23,4,10Z 
SUB2Z 

OUTPUT+2*4-2,SUB2-lZ 
*+23 .DUMADZ 

SUB2Z 

OUTPUT+2*8-2,SUB2-lZ 

SUB2 , DUMM YZ 

OUTPUT+2*22-2,SUB2-lZ 

OUTPUTZ 

DUMMY.1.10Z 

DUMAD»8,10Z 

PUNCHDZ 

»*-lZ 

STARTZ 



62 



